//Polinomio: x5-3x3+x2-23x+19=0
y= poly([19,-23, 1, -3, 0, 1], "x", "coeff");
s= roots(y)
xInf=-3; xSup=3;
nDatos=70;
ts=linspace(xInf,xSup,nDatos);
ys=horner(y, ts);
// Grafico;
//
plot(ts,ys,"s-");
xtitle("Grafica Polinomio: x5-3x3+x2-23x+19=0","x","y");
disp(s);
disp(y);

legend("f(x)");
xgrid();